home *** CD-ROM | disk | FTP | other *** search
/ Games of Daze / Infomagic - Games of Daze (Summer 1995) (Disc 2 of 2).iso / cheats / eq_new / def / civiliz.bak < prev    next >
Text File  |  1995-03-05  |  3KB  |  136 lines
  1. // This file is (C) 1994 - Howard Young
  2.  
  3. DEFTITLE("Civilization");
  4. DIR("C:\MPS");
  5. PROGRAM("CIV.BAT");
  6. UNIQUE("CIV\DIFFS.PIC;CIV\KING03.PIC;CIV\CITYPIX3.PIC;CIV\HILL.PIC");
  7. SOURCEVERSION('100');
  8. DISKSOURCE;
  9. HOWARD;
  10. BACKGROUND('STONE.BGP');
  11. TEXTCOLOR(WHITE);
  12. REGISTEREDONLY;
  13.  
  14. STRING FN,F;
  15. INT CNUM,NumberOfGames,R,C;
  16.  
  17. PROC TRIBE(INT X);  // RETURNS THE TRIBE NAME
  18.   IF (X=1)  THEN RETURN('Roman');
  19.   IF (X=2)  THEN RETURN('Babylonian');
  20.   IF (X=3)  THEN RETURN('German');
  21.   IF (X=4)  THEN RETURN('Egyptian');
  22.   IF (X=5)  THEN RETURN('American');
  23.   IF (X=6)  THEN RETURN('Greek');
  24.   IF (X=7)  THEN RETURN('Russian');
  25.   IF (X=8)  THEN RETURN('Zulu');
  26.   IF (X=9)  THEN RETURN('French');
  27.   IF (X=10) THEN RETURN('Aztec');
  28.   IF (X=11) THEN RETURN('Chinese');
  29.   IF (X=12) THEN RETURN('English');
  30.   IF (X=13) THEN RETURN('Mongol');
  31.   RETURN('?????');
  32. ENDPROC; // TRIBE
  33.  
  34. PROC GETNAME(INT X);
  35.   INT N;
  36.  
  37.   CNUM := READNUM(2,T_BYTE);
  38.   N := (CNum*14)+16;
  39.   F := READSTR(N,T_C);
  40.   F := PadR(F,13);
  41.   N := READNUM(8,T_INT);
  42.   IF (N<0) THEN F:=F+ABS(N)+" BC";
  43.   IF (N>0) THEN F:=F+N+" AD";
  44.   RETURN(F);
  45. ENDPROC; // GETNAME
  46.  
  47. PROC GETTitleNAME(INT X);
  48.   INT N;
  49.  
  50.   CNUM := READNUM(2,T_BYTE);
  51.   N := (CNum*14)+16;
  52.   F := READSTR(N,T_C);
  53.   F := F+' ';
  54.   N := READNUM(8,T_INT);
  55.   IF (N<0) THEN F:=F+ABS(N)+" BC";
  56.   IF (N>0) THEN F:=F+N+" AD";
  57.   RETURN(F);
  58. ENDPROC; // GETNAME
  59.  
  60. PROC GETFILE;
  61.   NumberOfGames := GetFileList($(100),'Civ\Civil*.SVE');
  62.  
  63.   IF (NumberOfGames=0)
  64.     Message('You have not saved any games!',
  65.             'Please play Civilization, save your',
  66.             'game, and return to here.');
  67.     Quit;
  68.   ENDIF;
  69.  
  70.   R:=0;
  71.  
  72.   While (R<NumberOfGames)
  73.     R := R+1;
  74.     Open('CIV\'+$(99+R));
  75.     $(199+R) := GetName;
  76.   EndWhile;
  77.  
  78.   R := 200;
  79.  
  80.   FreeList('Please Choose The Save Game','You Want To Work With:');
  81.     VAR(R);
  82.     ADDLIST($(200),NumberOfGames);
  83.   EndFreeList;
  84.  
  85.   FN := 'CIV\'+$(R-100);  // Set FN to be the file name choosen by user
  86.   OPEN(FN);               // open the file FN for use by rest of the DEF
  87.   F := GetTitleName;
  88.  
  89.   CNUM := READNUM(2,T_BYTE);
  90. ENDPROC; // GETFILE
  91.  
  92. PROC CHECK;
  93.   IF (GETFILELIST($(100),"CIV\CIVIL*.SVE")=0)
  94.     MESSAGE("Sorry, but you have no saved games available",
  95.             "to work on.  Please play Civilization, save",
  96.             "your game and return to here to use the Equalizer");
  97.     QUIT;
  98.   ENDIF;
  99. ENDPROC; // CHECK FOR SAVE GAMES
  100.  
  101. CHECK;
  102. GETFILE;
  103. SETTITLE("CIVILIZATION ('+F+')',Tribe(CNum)+' Empire');
  104.  
  105. PAGE(1);
  106.   FIELDSTART(110);
  107.   FIELDSPACE(100);
  108.  
  109.   LIST('Level Of Play');
  110.     NAME(FN,10,T_BYTE);
  111.     ASSIGN(0,'Chieftan','Warlord','Prince','King','Emperor');
  112.   ENDLIST;
  113.  
  114.   FIELD('Money');
  115.     NAME(FN,(CNum*2)+312,T_WORD);
  116.     RANGE(0,30000);
  117.     INC(10);
  118.   ENDFIELD;
  119. ENDPAGE; // 1
  120.  
  121. {----------------------------------------------------------------------------}
  122.  
  123. ABOUT
  124. ^4^*^UCivilization^U
  125.  
  126. MICROPROSE SOFTWARE
  127. 180 Lakefront Drive,
  128. Hunt Valley, MD 21030
  129.  
  130. Civilization Copyright 1991
  131. by MicroProse Software, Inc.
  132.  
  133.  
  134.               ^P"YSSHY.PCC"
  135. ENDABOUT;
  136.